(perform-replace): Prompt now says how to get help.

diff --git a/lisp/replace.el b/lisp/replace.el
index b8bf0648c24a71da1a0293e2be40978190ae7e72..2678e20c26d737d3e36f2c5962fa877940190b5c 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -493,7 +493,8 @@ which will run faster and do exactly what you probably want."
          ;; Loop reading commands until one of them sets done,
          ;; which means it has finished handling this occurrence.
          (while (not done)
-           (message "Query replacing %s with %s: "
+           (message (substitute-command-keys
+                     "Query replacing %s with %s: (\\<query-replace-map>\\[help] for help) ")
                     from-string next-replacement)
            (setq key (read-event))
            (setq key (vector key))